Ежемесячная стипендия студента «а» руб., а расходы на проживание превышают стипендию и составляют «b» руб. в месяц. Рост цен ежемесячно увеличивает расходы в 0,03 раза. Составить программу расчета необходимой суммы денег, которую надо 1 раз попросить у родителей, чтобы можно было прожить учебный год (10 месяцев) — Pascal(Паскаль)

uses crt;
 
var
  i:integer;
  a,b:real;
  z:array[1..10] of real;
  t:real;
 
begin
  clrscr;
  write('Stependia = '); readln(a);
  write('Zatrati = '); readln(b);
  writeln;
  t:=0;
  for i:=1 to 10 do begin
    if b-a<=0 then z[i]:=0 else z[i]:=b-a;
    t:=t+z[i];
    b:=b*1.03;
  end;
 
  for i:=1 to 10 do writeln('mesyac ',i:2,' - neobhodimo eshe ',z[i]:4:2,' p.');
  writeln;
  write('Vsego neobhodimo: ');
  if t<=0 then write('0 p.') else write(t:8:2,' p.');
 
  readkey;
end.